home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / tutor / bt110.exe / COLORS.BAS < prev    next >
BASIC Source File  |  1988-01-20  |  871b  |  34 lines
  1. 10 'colors.bas
  2. 20 ' color demo program
  3. 30 'copyright 1987, steve estvanik
  4. 40 '---------------------------------
  5. 50 CLS
  6. 60 ' first show all possible colors, on black background
  7. 70 PRINT"            dark          light   dark, blinking  light,blinking"
  8. 80 PRINT"           ------        -------   -------------       --------"
  9. 90 FOR I = 0 TO 7
  10. 100     FOR J = 0 TO 3
  11. 110    COLOR I+J*8,0
  12. 120     LOCATE I+3, 15+J*15
  13. 130     PRINT I+ J*8
  14. 140 NEXT
  15. 150 NEXT
  16. 160 PRINT "press any key...";
  17. 170 X$=INPUT$(1)
  18. 180 ' now show all combinations of foreground and background
  19. 190 COLOR 7,0
  20. 200 FOR W = 80 TO 40 STEP -40
  21. 210 CLS
  22. 220 WIDTH W
  23. 230 FOR I = 0 TO 7
  24. 240    FOR J = 0 TO 31
  25. 250    COLOR J, I
  26. 260    IF W = 80 THEN PRINT " x"; ELSE PRINT "x";
  27. 270    NEXT
  28. 280 PRINT
  29. 290 NEXT
  30. 300 PRINT "press any key...";
  31. 310 X$=INPUT$(1)
  32. 320 COLOR 7,0
  33. 330 NEXT
  34.